hic.file <- system.file("exdata", "hic_sort.bam", package="diffHic")
cuts <- readRDS(system.file("exdata", "cuts.rds", package="diffHic"))
param <- pairParam(fragments=cuts)
# Setting up the parameters
fout <- "output.h5"
invisible(preparePairs(hic.file, param, file=fout))
# Collating to count combinations.
y <- squareCounts(fout, param, width=50, filter=1)
summary(filterDiag(y))
summary(filterDiag(y, by.dist=100))
summary(filterDiag(y, by.diag=1))
summary(filterDiag(y, dist=pairdist(y)))
Run the code above in your browser using DataLab